object AVICompileForm: TAVICompileForm Left = 341 Top = 112 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'ImageToAVI - Verison 1.0 - Create an AVI from a List of Images' ClientHeight = 504 ClientWidth = 742 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnMouseMove = FormMouseMove OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object BackImage: TImage Left = 328 Top = 392 Width = 65 Height = 65 Picture.Data = {} Stretch = True Visible = False end object Bevel1: TBevel Left = 571 Top = 312 Width = 152 Height = 139 end object Label1: TLabel Left = 16 Top = 328 Width = 96 Height = 13 Caption = '&Frames Per Second:' FocusControl = FramesPerSecondEdit Transparent = True end object Label2: TLabel Left = 192 Top = 328 Width = 31 Height = 13 Caption = '&Width:' FocusControl = WidthEdit Transparent = True end object Label3: TLabel Left = 304 Top = 328 Width = 34 Height = 13 Caption = '&Height:' FocusControl = HeightEdit Transparent = True end object IncludeAudioChkBoxLbl: TLabel Left = 29 Top = 261 Width = 71 Height = 13 Cursor = crHandPoint Caption = ' &Include Audio' FocusControl = IncludeAudioChkBox Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True OnClick = IncludeAudioChkBoxLblClick end object SortChkBoxLbl: TLabel Left = 629 Top = 109 Width = 76 Height = 13 Cursor = crHandPoint Caption = ' Sort &Backward' FocusControl = SortBackChkBox Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True OnClick = SortChkBoxLblClick end object Image1: TImage Left = 572 Top = 313 Width = 149 Height = 136 Stretch = True end object AspectChkBoxLbl: TLabel Left = 573 Top = 173 Width = 110 Height = 13 Cursor = crHandPoint Caption = ' Maintain Aspect &Ratio' FocusControl = AspectChkBox Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True OnClick = AspectChkBoxLblClick end object ZoomChkBoxLbl: TLabel Left = 573 Top = 189 Width = 146 Height = 13 Cursor = crHandPoint Caption = ' &Zoom In (expand smaller pics)' FocusControl = ZoomInChkBox Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True OnClick = ZoomChkBoxLblClick end object AVIBackImage: TImage Left = 456 Top = 416 Width = 49 Height = 49 Visible = False end object Label4: TLabel Left = 560 Top = 224 Width = 105 Height = 13 Caption = 'Border Size Width (%):' FocusControl = BorderSizeWidthEdit Transparent = True end object BuffImage: TImage Left = 408 Top = 416 Width = 49 Height = 49 Visible = False end object DirLbl: TLabel Left = 208 Top = 400 Width = 27 Height = 13 Caption = 'DirLbl' Visible = False end object Label5: TLabel Left = 560 Top = 248 Width = 108 Height = 13 Caption = 'Border Size Height (%):' FocusControl = BorderSizeHeightEdit Transparent = True end object Label6: TLabel Left = 16 Top = 360 Width = 91 Height = 13 Caption = '&Repeat each fra&me' FocusControl = RepeatValueEdit Transparent = True end object Label7: TLabel Left = 184 Top = 360 Width = 33 Height = 13 Caption = 'time(s).' Transparent = True end object Label8: TLabel Left = 248 Top = 360 Width = 91 Height = 13 Caption = 'Repea&t each frame' FocusControl = RepeatSecondsEdit Transparent = True end object Label9: TLabel Left = 416 Top = 360 Width = 49 Height = 13 Caption = 'second(s).' Transparent = True end object ProgressImage: TImage Left = 8 Top = 448 Width = 248 Height = 15 AutoSize = True Picture.Data = {} Visible = False end object MyDocsDirLbl: TLabel Left = 248 Top = 400 Width = 66 Height = 13 Caption = 'MyDocsDirLbl' Visible = False end object Label10: TLabel Left = 560 Top = 280 Width = 57 Height = 13 Caption = 'Pi&xel format:' FocusControl = PixelFormCBox Transparent = True OnMouseMove = Label10MouseMove end object Status1Image: TImage Left = 408 Top = 384 Width = 81 Height = 41 Picture.Data = {} Visible = False end object Status2Image: TImage Left = 488 Top = 384 Width = 73 Height = 41 Picture.Data = {} Visible = False end object StopBtn: TBitBtn Left = 14 Top = 416 Width = 131 Height = 25 Caption = 'Stop ' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 22 Visible = False OnClick = StopBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777778777777777777789987777777777799999987777777799999999 8777777999999999987777799999999998777799999999999987779999999999 9977777999999999987777799999999997777777999999997777777779999997 7777777777799777777777777777777777777777777777777777} end object AddBtn: TBitBtn Left = 568 Top = 16 Width = 153 Height = 25 Caption = 'Ad&d Image Files...' TabOrder = 0 OnClick = AddBtnClick OnMouseMove = AddBtnMouseMove Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777788887 7777777777444487777777777744448777777777774444877777777777444487 7777778888444488888874444444444444487444444444444448744444444444 4448744444444444444777777744448777777777774444877777777777444487 7777777777444487777777777744447777777777777777777777} end object CompileBtn: TBitBtn Left = 14 Top = 416 Width = 131 Height = 25 Caption = '&Compile Images ' Default = True Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 21 OnClick = CompileBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777777777877777777777778AA877777777777AAAAAA877777777AAAAAAAA 8777777AAAAAAAAAA877777AAAAAAAAAA87777AAAAAAAAAAAA8777AAAAAAAAAA AA77777AAAAAAAAAA877777AAAAAAAAAA7777777AAAAAAAA777777777AAAAAA7 77777777777AA777777777777777777777777777777777777777} end object DeleteBtn: TBitBtn Left = 568 Top = 48 Width = 153 Height = 25 Caption = 'D&elete Selected Image(s)' Enabled = False TabOrder = 1 OnClick = DeleteBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777070707070 7777777767474747777777707070707077777777677747477777777070707070 7777777767774747777777707070707077777777677747477777777070707070 7777777767774747777777707070707077777707070707070777777677747474 7777770707070707077777777074707777777777770707777777} end object StringGrid: TStringGrid Left = 10 Top = 8 Width = 535 Height = 241 Hint = 'Click and hold the left mouse button on the row tabs to move a r' + 'ow.' Color = clBtnFace ColCount = 2 DefaultColWidth = 1000 DefaultRowHeight = 15 Enabled = False RowCount = 1 FixedRows = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowMoving, goRowSelect, goThumbTracking] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 23 OnClick = StringGridClick OnDblClick = StringGridDblClick OnMouseMove = StringGridMouseMove end object StatusBar1: TStatusBar Left = 0 Top = 466 Width = 742 Height = 19 Color = clInactiveCaption Panels = < item Style = psOwnerDraw Text = 'Ready' Width = 250 end item Style = psOwnerDraw Text = 'Selected Image: None.' Width = 150 end item Style = psOwnerDraw Text = 'Total Images: 0' Width = 150 end item Style = psOwnerDraw Text = 'Total Frames: ?' Width = 50 end> SimplePanel = False OnDrawPanel = StatusBar1DrawPanel end object SortBtn: TBitBtn Left = 568 Top = 80 Width = 153 Height = 25 Caption = '&Sort List' Enabled = False TabOrder = 2 OnClick = SortBtnClick Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C0C0C0C0C0C0 808080808080808080808080808080808080C0C0C0C0C0C0C0C0C0C0C0C08080 80C0C0C0C0C0C0C0C0C0C0C0C000008000008000008000008000008000008080 8080C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0000080 000080808080C0C0C0C0C0C0000080C0C0C0C0C0C0C0C0C0C0C0C0FF00008080 80808080C0C0C0C0C0C0C0C0C0C0C0C0000080000080808080C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0FF0000FF0000FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0000080000080808080C0C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000FF00 00808080808080C0C0C0C0C0C0C0C0C0808080C0C0C000008000008080808080 8080C0C0C0FF0000FF0000FF0000FF0000FF0000C0C0C0C0C0C0C0C0C0000080 808080808080808080000080000080808080C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0000080000080000080000080000080000080C0 C0C0C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 808080808080808080C0C0C0808080808080808080C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0808000808000808000C0C0C080800080800080 8000C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 808000808080C0C0C0C0C0C0808000808080C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808000808000808000808000808000C0 C0C0C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0808000C0C0C0808000808080C0C0C0C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808000808000808000C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0808000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808000C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0FF0000C0C0C0C0C0C0C0C0C0C0C0C0} end object SortBackChkBox: TCheckBox Left = 616 Top = 109 Width = 13 Height = 13 Cursor = crHandPoint TabOrder = 3 end object OpenAudioPathBtn: TBitBtn Left = 112 Top = 256 Width = 97 Height = 25 Caption = 'Open A&udio...' Enabled = False TabOrder = 11 OnClick = OpenAudioPathBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777774488777777777777444877777777777777487887 7777777777484488777777777748444877777777774877487777777777487748 7777777777447748777777777747474877777777777474487777777777774748 7777777777777447777777777777777777777777777777777777} Spacing = 2 end object AudioPathEdit: TEdit Left = 216 Top = 258 Width = 329 Height = 21 Color = clBtnFace ReadOnly = True TabOrder = 12 Text = '(none)' end object IncludeAudioChkBox: TCheckBox Left = 16 Top = 261 Width = 13 Height = 13 Cursor = crHandPoint TabOrder = 10 OnClick = IncludeAudioChkBoxClick end object OutputPathBtn: TBitBtn Left = 16 Top = 288 Width = 97 Height = 25 Caption = '&Output File...' TabOrder = 13 OnClick = OutputPathBtnClick OnMouseMove = OutputPathBtnMouseMove end object OutputEdit: TEdit Left = 120 Top = 290 Width = 425 Height = 21 Color = clBtnFace ReadOnly = True TabOrder = 14 Text = 'C:\output.avi' OnMouseMove = OutputPathBtnMouseMove end object FramesPerSecondEdit: TEdit Left = 120 Top = 325 Width = 57 Height = 21 TabOrder = 15 Text = '29.970' OnChange = FramesPerSecondEditChange OnExit = FramesPerSecondEditExit end object WidthEdit: TCSpinEdit Left = 230 Top = 325 Width = 65 Height = 22 TabStop = True MaxValue = 9999999 MinValue = 1 ParentColor = False TabOrder = 16 Value = 720 OnChange = FramesPerSecondEditChange end object HeightEdit: TCSpinEdit Left = 344 Top = 325 Width = 65 Height = 22 TabStop = True MaxValue = 9999999 MinValue = 1 ParentColor = False TabOrder = 17 Value = 480 OnChange = FramesPerSecondEditChange end object StatusBar2: TStatusBar Left = 0 Top = 485 Width = 742 Height = 19 Color = clInactiveCaption Panels = < item Style = psOwnerDraw Text = 'Click '#39'Add Image Files'#39' to add Bitmaps or JPEG files to the comp' + 'ilation list.' Width = 550 end item Style = psOwnerDraw Text = 'Video Length: ?' Width = 50 end> SimplePanel = False OnDrawPanel = StatusBar2DrawPanel end object AspectChkBox: TCheckBox Left = 560 Top = 173 Width = 13 Height = 13 Cursor = crHandPoint Caption = 'AspectChkBox' Checked = True State = cbChecked TabOrder = 5 OnClick = AspectChkBoxClick end object ZoomInChkBox: TCheckBox Left = 560 Top = 189 Width = 13 Height = 13 Cursor = crHandPoint Caption = 'ZoomInChkBox' Checked = True State = cbChecked TabOrder = 6 OnClick = ZoomInChkBoxClick end object OpenBackPicBtn: TBitBtn Left = 568 Top = 128 Width = 153 Height = 25 Caption = 'Open Background &Pic...' TabOrder = 4 OnClick = OpenBackPicBtnClick end object BorderSizeWidthEdit: TCSpinEdit Left = 673 Top = 221 Width = 48 Height = 22 TabStop = True MaxValue = 99 ParentColor = False TabOrder = 7 Value = 10 OnChange = BorderSizeWidthEditChange OnMouseMove = BorderSizeWidthEditMouseMove end object BorderSizeHeightEdit: TCSpinEdit Left = 673 Top = 245 Width = 48 Height = 22 TabStop = True MaxValue = 99 ParentColor = False TabOrder = 8 Value = 5 OnChange = BorderSizeHeightEditChange OnMouseMove = BorderSizeHeightEditMouseMove end object MediaTypeCBox: TComboBox Left = 416 Top = 325 Width = 129 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Custom' 'DVD NTSC 720x480' 'DVD PAL 720x576' 'SVCD NTSC 480x480' 'SVCD PAL 480x576' 'VCD NTSC 352x240' 'VCD PAL 352x240') TabOrder = 18 OnChange = MediaTypeCBoxChange end object RepeatValueEdit: TEdit Left = 120 Top = 357 Width = 57 Height = 21 TabOrder = 19 Text = '1.000' OnChange = RepeatValueEditChange OnExit = RepeatValueEditExit end object RepeatSecondsEdit: TEdit Left = 344 Top = 357 Width = 65 Height = 21 ParentShowHint = False ShowHint = True TabOrder = 20 Text = '0.033366700033366700033366700033367' OnChange = RepeatSecondsEditChange OnExit = RepeatSecondsEditExit end object PixelFormCBox: TComboBox Left = 624 Top = 277 Width = 73 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '32 bit' '24 bit' '8 bit') TabOrder = 9 OnChange = PixelFormCBoxChange end object OpenAudioDlg: TOpenDialog DefaultExt = '.wav' Filter = 'WAV files (*.wav)|*.wav' InitialDir = 'c:\My Documents' Left = 208 Top = 416 end object SaveDlg: TSaveDialog DefaultExt = '.avi' FileName = 'output.avi' Filter = 'AVI File (*.avi)|*.avi' InitialDir = 'C:\My Documents' Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] Left = 240 Top = 416 end object MainMenu1: TMainMenu Left = 272 Top = 416 object File1: TMenuItem Caption = '&File' object ExitBtn: TMenuItem Caption = 'E&xit' OnClick = ExitBtnClick end end object ImageList1: TMenuItem Caption = 'Image &List' OnClick = ImageList1Click object AddImageFilesBtn2: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777788887 7777777777444487777777777744448777777777774444877777777777444487 7777778888444488888874444444444444487444444444444448744444444444 4448744444444444444777777744448777777777774444877777777777444487 7777777777444487777777777744447777777777777777777777} Caption = 'A&dd Image Files...' ShortCut = 112 OnClick = AddBtnClick end object SortBtn2: TMenuItem Bitmap.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C0C0C0C0C0C0 808080808080808080808080808080808080C0C0C0C0C0C0C0C0C0C0C0C08080 80C0C0C0C0C0C0C0C0C0C0C0C000008000008000008000008000008000008080 8080C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0000080 000080808080C0C0C0C0C0C0000080C0C0C0C0C0C0C0C0C0C0C0C0FF00008080 80808080C0C0C0C0C0C0C0C0C0C0C0C0000080000080808080C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0FF0000FF0000FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0000080000080808080C0C0C0C0C0C0C0C0C0C0C0C0FF0000FF0000FF00 00808080808080C0C0C0C0C0C0C0C0C0808080C0C0C000008000008080808080 8080C0C0C0FF0000FF0000FF0000FF0000FF0000C0C0C0C0C0C0C0C0C0000080 808080808080808080000080000080808080C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0000080000080000080000080000080000080C0 C0C0C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 808080808080808080C0C0C0808080808080808080C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0808000808000808000C0C0C080800080800080 8000C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 808000808080C0C0C0C0C0C0808000808080C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808000808000808000808000808000C0 C0C0C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0808000C0C0C0808000808080C0C0C0C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808000808000808000C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0FF0000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0 C0C0C0C0C0C0808000808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF00008080 80C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808000C0C0C0C0C0C0C0 C0C0C0C0C0C0C0C0C0C0C0FF0000C0C0C0C0C0C0C0C0C0C0C0C0} Caption = '&Sort Image List' ShortCut = 16463 OnClick = SortBtnClick end object N1: TMenuItem Caption = '-' end object DeleteSelectedBtn2: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777070707070 7777777767474747777777707070707077777777677747477777777070707070 7777777767774747777777707070707077777777677747477777777070707070 7777777767774747777777707070707077777707070707070777777677747474 7777770707070707077777777074707777777777770707777777} Caption = 'D&elete Selected Image(s)' ShortCut = 8238 OnClick = DeleteBtnClick end object SelectAllBtn: TMenuItem Caption = 'Se&lect All' ShortCut = 16449 OnClick = SelectAllBtnClick end end object Help1: TMenuItem Caption = '&Help' object HelpBtn: TMenuItem Bitmap.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF 0000FF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF808080808080BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF 0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF 0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF808080808080BFBFBFFF0000FF0000808080BFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF0000BFBFBFBF BFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFFF0000FF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF00008080 80808080BFBFBFBFBFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBF FF0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF00 00808080BFBFBFBFBFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBF FF0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF00 00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBF BFBFBFBFBFBFBFBFFF0000FF0000808080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFFF0000FF0000FF0000FF0000FF0000FF0000FF0000808080BFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF0000FF0000FF 0000FF0000FF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF} Caption = '&Help' OnClick = HelpBtnClick end object AboutBtn: TMenuItem Caption = 'A&bout...' OnClick = AboutBtnClick end end end object OpenPicDlg: TOpenPictureDialog Filter = 'All (*.jpg;*.jpeg;*.bmp;*.gif)|*.jpg;*.jpeg;*.bmp;*.gif|Bitmaps ' + '(*.bmp)|*.bmp|JPEG Files (*.jpg;*.jpeg)|*.jpg;*.jpeg|GIF (*.gif)' + '|*.gif' InitialDir = 'Backgrounds' Left = 176 Top = 416 end end